(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     43109,        936]
NotebookOptionsPosition[     32649,        765]
NotebookOutlinePosition[     33070,        782]
CellTagsIndexPosition[     33027,        779]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["CodeFormatter Eyeball Tests", "Title",
 CellChangeTimes->{{3.80035052110378*^9, 
  3.800350526214616*^9}},ExpressionUUID->"1b8b1596-51a0-4240-9fb2-\
afc00b94623f"],

Cell[CellGroupData[{

Cell["Tests", "Section",ExpressionUUID->"9eee6a9b-3bca-4126-b742-5a5a6e0da127"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<CodeFormatter`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.79788509534063*^9, 3.797885098513586*^9}, {
  3.800351979024645*^9, 3.800351984040064*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"547829bc-aef3-4b7c-a512-2248f8a718f7"],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[{\na+b\n}]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.797929725291335*^9, 3.797929734146867*^9}, {
  3.80546530524218*^9, 3.805465307788247*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"e5ad5151-0e69-4d5c-bdf6-e122b87f43f7"],

Cell[BoxData["\<\"\\nfoo[{\\na+b\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{
  3.800351989470895*^9, {3.805465298137918*^9, 3.805465308233932*^9}},
 CellLabel->"Out[4]=",ExpressionUUID->"78f9f94e-4f0e-46d7-b0b4-ad7b492309df"],

Cell[BoxData["\<\"\\nfoo[{\\n    a + b\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{
  3.800351989470895*^9, {3.805465298137918*^9, 3.805465308298875*^9}},
 CellLabel->"Out[5]=",ExpressionUUID->"4e4be88e-4cdd-4b19-b04c-928d4a7357d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[{\na+b, 2\n}]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.797929740460141*^9, 3.797929740987198*^9}, {
  3.8054653137865753`*^9, 3.80546531586028*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"fb6f1e20-c664-4959-93ef-99f6ff48ffaf"],

Cell[BoxData["\<\"\\nfoo[{\\na+b, 2\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{
  3.800351991766288*^9, {3.805465299835248*^9, 3.805465316460918*^9}},
 CellLabel->"Out[6]=",ExpressionUUID->"7009e6dd-c3d5-45fc-9eee-0a5d86527b4a"],

Cell[BoxData["\<\"\\nfoo[{\\n    a + b, 2\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{
  3.800351991766288*^9, {3.805465299835248*^9, 3.805465316462533*^9}},
 CellLabel->"Out[7]=",ExpressionUUID->"7de32203-28e3-4f51-bdbc-419d1c3fe245"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[1, {\na+b\n}]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.7979297496281767`*^9, 3.79792975003587*^9}, {
  3.8054653209383717`*^9, 3.805465323201499*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"84d6322f-8a81-4774-8e67-ab35d56d4e76"],

Cell[BoxData["\<\"\\nfoo[1, {\\na+b\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{3.800351996833249*^9, 3.80546532358412*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"95e54637-94fe-4b2a-94b4-1791bf5eb243"],

Cell[BoxData["\<\"\\nfoo[1, {\\n        a + b\\n    }\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800351996833249*^9, 3.8054653235857573`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"ebdbaccd-9fab-4280-b1d2-33bd34972404"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[1, f[\na+b\n]]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465327940624*^9, 3.8054653298697243`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"c8943ea6-588b-4e79-a230-39be56879620"],

Cell[BoxData["\<\"\\nfoo[1, f[\\na+b\\n]]\\n\"\>"], "Output",
 CellChangeTimes->{3.800351999314539*^9, 3.8054653303437033`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"15072413-bb3e-4ee6-b23b-1106cc392fdb"],

Cell[BoxData["\<\"\\nfoo[1, f[\\n        a + b\\n    ]\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800351999314539*^9, 3.805465330345215*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c7ddf02d-323c-412a-80b2-b374837a5836"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[{\na+b\n}, 2]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.797929754740776*^9, 3.797929755172102*^9}, {
  3.7979330549873877`*^9, 3.797933062070943*^9}, {3.805465336715475*^9, 
  3.805465338944042*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"1d8ba3ec-c74d-4466-86f8-fea15f685a57"],

Cell[BoxData["\<\"\\nfoo[{\\na+b\\n}, 2]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352005304137*^9, 3.805465339796197*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"fcb558ad-1914-4bdc-9079-0c8904dfd954"],

Cell[BoxData["\<\"\\nfoo[{\\n    a + b\\n}, 2]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352005304137*^9, 3.805465339797761*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"dbaeeb24-a26b-4b46-b75d-12c14bbdc327"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[{1, 2, 3} +\n  b\n]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.797885971688965*^9, 3.797885986248563*^9}, 
   3.797886108410537*^9, {3.797888179913579*^9, 3.797888264150648*^9}, {
   3.797890723446704*^9, 3.79789072747094*^9}, {3.7978909124380608`*^9, 
   3.797890924064188*^9}, {3.7979298272242813`*^9, 3.797929834518506*^9}, {
   3.805465343806396*^9, 3.805465347700108*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"18647010-92fb-4815-82a0-60d668b69937"],

Cell[BoxData["\<\"\\nfoo[{1, 2, 3} +\\n  b\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352015337454*^9, 3.805465348053481*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"59681eb5-047d-4719-906b-fadcef57c8a3"],

Cell[BoxData["\<\"\\nfoo[{1, 2, 3} +\\n    b\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352015337454*^9, 3.805465348055017*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"8c34a449-2b33-4fbd-bbcf-83397dd45096"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[a +\n  b]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.797929844393113*^9, 3.797929847672226*^9}, 
   3.797930127215001*^9, {3.797931201499773*^9, 3.797931204723679*^9}, {
   3.7979320635633574`*^9, 3.797932069195581*^9}, {3.80546535776376*^9, 
   3.805465359864922*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"8f275830-8643-4037-9496-bba84f1e6656"],

Cell[BoxData["\<\"\\nfoo[a +\\n  b]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352019533142*^9, 3.805465360415924*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"348900c5-2a6b-4979-b604-176cfb62e7d6"],

Cell[BoxData["\<\"\\nfoo[a +\\n    b\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352019533142*^9, 3.805465360417561*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"2801ec3d-849c-46c0-9a86-e1b66a0696f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[{\n2}, {\n}]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465368459652*^9, 3.8054653704488707`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"886d8df6-92b2-4c42-85ae-cc63509b6e49"],

Cell[BoxData["\<\"\\nfoo[{\\n2}, {\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352031074444*^9, 3.80546537079324*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"6e72b310-006a-48e6-b890-3d688b3aeb1c"],

Cell[BoxData["\<\"\\nfoo[{\\n    2\\n}, {\\n}]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352031074444*^9, 3.805465370854507*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"8ed23bd2-6fbe-4831-b103-e47f52ad60d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nfoo[\n1 +\n        2 +\n        2\n]\n\>\"", "\
\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.7978909850288267`*^9, 3.797891049251902*^9}, {
   3.797891942132846*^9, 3.7978919787478743`*^9}, {3.7978920507799673`*^9, 
   3.7978920576022663`*^9}, {3.79789216566352*^9, 3.7978922219359827`*^9}, 
   3.797932018766259*^9, {3.797932168826804*^9, 3.797932172493052*^9}, {
   3.805465375007401*^9, 3.805465377177775*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"b1dc9d8f-7ad4-4ce0-8bda-b7bafefc13a4"],

Cell[BoxData["\<\"\\nfoo[\\n1 +\\n        2 +\\n        2\\n]\\n\"\>"], \
"Output",
 CellChangeTimes->{3.8003520333721647`*^9, 3.805465377648469*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"08358d1f-64ed-41e7-b4d1-303072817510"],

Cell[BoxData["\<\"\\nfoo[\\n    1 +\\n        2 +\\n        2\\n]\\n\"\>"], \
"Output",
 CellChangeTimes->{3.8003520333721647`*^9, 3.8054653776500063`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"6e72e430-bb4b-4653-8e89-f79120bd863f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nf[{sym},\n  g\n]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.7979327379148817`*^9, 3.79793278833444*^9}, {
  3.797932898143067*^9, 3.797932901999597*^9}, {3.797932958236977*^9, 
  3.797932959426498*^9}, {3.8054653912971582`*^9, 3.805465394330982*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"9b77f3f3-d396-4feb-abb0-9dbbf7ef2e81"],

Cell[BoxData["\<\"\\nf[{sym},\\n  g\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352038574403*^9, 3.8054653946757917`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"0a669a55-5102-4dba-84d1-c109d16bed8f"],

Cell[BoxData["\<\"\\nf[{sym},\\n    g\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352038574403*^9, 3.8054653946774073`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"205d31bd-0343-4d0c-bf08-66826abd93d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nf[{sym},\n  g;\n  g\n]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.8054653990637712`*^9, 3.8054654008452473`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"10504663-1c38-4f19-af52-7c2b68840395"],

Cell[BoxData["\<\"\\nf[{sym},\\n  g;\\n  g\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520404548683`*^9, 3.805465401221121*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"8129376c-c2bd-4281-8622-4a394188d85c"],

Cell[BoxData["\<\"\\nf[{sym},\\n    g;\\n    g\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520404548683`*^9, 3.8054654012685204`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"a8929337-b1a7-4d0a-b884-55c8fa041755"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nf[{sym} +\n  g;\n  g\n]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.8054654050040283`*^9, 3.805465407131983*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"49105805-a647-402d-ae82-29bb794db61c"],

Cell[BoxData["\<\"\\nf[{sym} +\\n  g;\\n  g\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520425415297`*^9, 3.805465407688261*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"93d3afdc-a1e0-4685-8396-eae7a08b115e"],

Cell[BoxData["\<\"\\nf[{sym} +\\n        g;\\n    g\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520425415297`*^9, 3.805465407753656*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"04e8003c-5895-4a02-8ec0-2705097a2b19"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nReplace[b,\n  c]  \n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.80546541474964*^9, 3.805465416599169*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"2187e473-9e71-4ead-b0e6-918fbb76509b"],

Cell[BoxData["\<\"\\nReplace[b,\\n  c]  \\n\"\>"], "Output",
 CellChangeTimes->{3.8003520478936863`*^9, 3.805465417179002*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"d7f24d95-35f8-44b6-ad25-dd7d1415b0cc"],

Cell[BoxData["\<\"\\nReplace[b,\\n    c\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520478936863`*^9, 3.805465417180745*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"c73e6ccd-3710-4f24-8742-a0205a411037"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nReplace[b, {\na\n}]  \n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.8054654209254093`*^9, 3.805465422664056*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"60abed13-3fbb-4c11-aa44-eb78d79bad4c"],

Cell[BoxData["\<\"\\nReplace[b, {\\na\\n}]  \\n\"\>"], "Output",
 CellChangeTimes->{3.800352049644969*^9, 3.8054654234483128`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"f66d5cdc-e111-4bca-9797-25ff4cdaa8fb"],

Cell[BoxData["\<\"\\nReplace[b, {\\n        a\\n    }\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.800352049644969*^9, 3.805465423503434*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"388601aa-67ab-4cda-ac69-db8398dc7f34"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nReplace[b, \n{}]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.8054654279080553`*^9, 3.805465429636571*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"3b25dbd4-e8cf-4fb2-96a0-df28ece6da4a"],

Cell[BoxData["\<\"\\nReplace[b, \\n{}]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520524355087`*^9, 3.805465430162101*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"1f9b9452-684d-4173-957b-683daa9787b0"],

Cell[BoxData["\<\"\\nReplace[b,\\n    {}\\n]\\n\"\>"], "Output",
 CellChangeTimes->{3.8003520524355087`*^9, 3.805465430163878*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"ffc66151-4982-4d39-8cf5-5a7b617f168f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<{edgeforms (*color*)(*,colorMode*)}\>\"", "\
\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465435415992*^9, 3.8054654370810213`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"4b9e660e-778c-4aad-86fe-653c5d056793"],

Cell[BoxData["\<\"{edgeforms (*color*)(*,colorMode*)}\"\>"], "Output",
 CellChangeTimes->{3.8003520550453663`*^9, 3.80546543740312*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"da4908ae-46c0-4429-89ee-260eb5a1f2f5"],

Cell[BoxData["\<\"{edgeforms (*color*)(*,colorMode*)}\"\>"], "Output",
 CellChangeTimes->{3.8003520550453663`*^9, 3.8054654374048357`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"5a718e5c-8e86-481f-90f1-03d260599bc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<-1(**)\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465442138227*^9, 3.8054654441245213`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"795fbeb2-b3bb-4591-bbce-603b251e16d5"],

Cell[BoxData["\<\"-1(**)\"\>"], "Output",
 CellChangeTimes->{3.800352059378108*^9, 3.80546544443644*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"7d1f3048-20b2-405f-830b-5d6018add258"],

Cell[BoxData["\<\"-1(**)\"\>"], "Output",
 CellChangeTimes->{3.800352059378108*^9, 3.805465444438163*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"f3295862-baad-41d2-9881-b11bbe59c471"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<(messageCocitationMatrix[expr]; Null /; False)\>\"", "\
\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465447758741*^9, 3.805465449363328*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"0a80fedc-0fd8-4a63-8b24-2aa0a3f35faf"],

Cell[BoxData["\<\"(messageCocitationMatrix[expr]; Null /; False)\"\>"], \
"Output",
 CellChangeTimes->{3.800352060863306*^9, 3.805465449664049*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"8fd68d28-04bd-45aa-89ec-f9722a7bd691"],

Cell[BoxData["\<\"(messageCocitationMatrix[expr]; Null /; False)\"\>"], \
"Output",
 CellChangeTimes->{3.800352060863306*^9, 3.8054654496659117`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"2634cd2d-7e36-4f9e-a0af-103b5b4a0561"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<x + # &\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465453248946*^9, 3.805465455127275*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"29ed91b1-4555-4694-a564-dae0947306d4"],

Cell[BoxData["\<\"x + # &\"\>"], "Output",
 CellChangeTimes->{3.800352062114285*^9, 3.805465455444743*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"45ed2ba9-f164-4e70-9a66-918ea60eaff8"],

Cell[BoxData["\<\"x + #&\"\>"], "Output",
 CellChangeTimes->{3.800352062114285*^9, 3.805465455446465*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"8ca2c963-3d07-4608-b0b8-34ae783c4f87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<\nf[g[\nh[]\n]]\n\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465460747847*^9, 3.805465462707738*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"fc4222dc-3711-401d-bf13-4debc06a1f36"],

Cell[BoxData["\<\"\\nf[g[\\nh[]\\n]]\\n\"\>"], "Output",
 CellChangeTimes->{3.80035206498295*^9, 3.805465463050078*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"55b3e8a8-0a14-46d9-b30e-e8518a5d434c"],

Cell[BoxData["\<\"\\nf[g[\\n    h[]\\n]]\\n\"\>"], "Output",
 CellChangeTimes->{3.80035206498295*^9, 3.8054654630520077`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"466a2965-9f80-466c-aced-fa8de9546357"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<For[a, b, c, d]\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.80546546715674*^9, 3.805465469216239*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"df055702-32e5-425d-8b26-0d5f553a63ed"],

Cell[BoxData["\<\"For[a, b, c, d]\"\>"], "Output",
 CellChangeTimes->{3.8003520667778177`*^9, 3.805465469536874*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"16e9dd07-2031-4d88-93d7-c1dc09880f9b"],

Cell[BoxData["\<\"For[a, b, c, \\n    d\\n]\"\>"], "Output",
 CellChangeTimes->{3.8003520667778177`*^9, 3.805465469538446*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"05830cdb-c72a-4eed-95fc-393e047a3bfe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<For(**)[a, b, c, d]\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465473034706*^9, 3.8054654748668013`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"d0cc446d-2c96-4d03-ba6c-983a46115e8c"],

Cell[BoxData["\<\"For(**)[a, b, c, d]\"\>"], "Output",
 CellChangeTimes->{3.800352067622326*^9, 3.8054654752669697`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"89dd652b-8a09-4e31-bcb9-acd7267f37eb"],

Cell[BoxData["\<\"For(**)[a, b, c, \\n    d\\n]\"\>"], "Output",
 CellChangeTimes->{3.800352067622326*^9, 3.805465475268672*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"8f9d838f-76e5-416f-8fa0-dfd8eb72687e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<For  (**)    (**)  \
[(**)(**)a(**)(**),(**)(**)b(**)(**),(**)(**)c(**)(**),(**)(**)d(**)(**)]\>\"\
", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465479308728*^9, 3.805465481280033*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"297000cf-d033-44f3-b232-1994fc17b349"],

Cell[BoxData["\<\"For  (**)    (**)  \
[(**)(**)a(**)(**),(**)(**)b(**)(**),(**)(**)c(**)(**),(**)(**)d(**)(**)]\"\>\
"], "Output",
 CellChangeTimes->{3.800352069469149*^9, 3.805465481700987*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"60996613-1166-4341-b657-c8cf420730d0"],

Cell[BoxData["\<\"For  (**)    (**)[(**)(**)a(**)(**),(**)(**) \
b(**)(**),(**)(**) c(**)(**),(**)(**) \\n    d(**)(**)\\n]\"\>"], "Output",
 CellChangeTimes->{3.800352069469149*^9, 3.8054654817116737`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"34682126-1199-464d-beef-64351cf3c84b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Newlines", "Subsection",
 CellChangeTimes->{{3.80546550941115*^9, 
  3.805465510345695*^9}},ExpressionUUID->"ade2c8b7-0afe-47c2-b92d-\
64f8518816e8"],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<{a\\rb}\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.80546551120092*^9, 3.8054655160158367`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"2d33804c-01b5-47bc-b861-3030c76d94b7"],

Cell[BoxData["\<\"{a\\rb}\"\>"], "Output",
 CellChangeTimes->{3.80546551663234*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"2a7c481b-9202-49c3-b23a-a19e6c9a4191"],

Cell[BoxData["\<\"{a\\n    b\\n}\"\>"], "Output",
 CellChangeTimes->{3.805465516634205*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"f79de9a9-3a47-4e1d-b6b4-75d34e16dfae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<{ f\\n& }\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465549903009*^9, 3.8054655547738743`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"32cfdf8d-da65-452b-a002-c7b72ad9743c"],

Cell[BoxData["\<\"{ f\\n& }\"\>"], "Output",
 CellChangeTimes->{3.805465555086377*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"ead2a6e4-f305-47e4-a735-24669b704db1"],

Cell[BoxData["\<\"{f&\\n}\"\>"], "Output",
 CellChangeTimes->{3.8054655550884933`*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"c00bc9f1-3a71-4241-809b-64f831519030"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"\"\<{a \\n&}\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805465581840664*^9, 3.805465585407729*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"529e460f-871f-4646-b6e1-dd55a2acfad0"],

Cell[BoxData["\<\"{a \\n&}\"\>"], "Output",
 CellChangeTimes->{3.8054655860188723`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"e5dacda1-46c3-42af-b791-cea2ad43883d"],

Cell[BoxData["\<\"{a&\\n}\"\>"], "Output",
 CellChangeTimes->{3.805465586020803*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"e975a029-e30d-4065-97ec-640295c3f7ed"]
}, Open  ]],

Cell[BoxData[{"\"\<If[(*\\n*)a, b]\>\"", "\[IndentingNewLine]", 
 RowBox[{"CodeFormat", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.805470061490477*^9, 
  3.805470065958791*^9}},ExpressionUUID->"c64163de-ba0f-4342-9ca6-\
9867e5dd2db5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boxes", "Subsection",
 CellChangeTimes->{{3.810031714222391*^9, 
  3.8100317151500187`*^9}},ExpressionUUID->"e09be37e-81b3-4fa1-812f-\
bcd89fab701a"],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", "x", "}"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "x", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031744667626*^9, 3.810031745384202*^9}, {
  3.810031792375782*^9, 3.810031803317*^9}, {3.810031912899024*^9, 
  3.8100319162955217`*^9}, {3.810032007881922*^9, 3.8100320081634274`*^9}, {
  3.810032072797595*^9, 3.810032073296319*^9}, {3.8100325088034067`*^9, 
  3.810032534264525*^9}, {3.8100326061000338`*^9, 
  3.8100326075324993`*^9}},ExpressionUUID->"e267df39-f2ba-4220-870f-\
c01747c11c81"],

Cell[BoxData[
 RowBox[{"Module", "[", "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", 
  RowBox[{
   RowBox[{"{", "x", "}"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "x", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031744667626*^9, 3.810031745384202*^9}, {
  3.810031792375782*^9, 3.810031803317*^9}, {3.810031912899024*^9, 
  3.8100319162955217`*^9}, {3.810032007881922*^9, 3.8100320081634274`*^9}, {
  3.810032072797595*^9, 3.810032073296319*^9}, {3.8100325088034067`*^9, 
  3.810032534264525*^9}, {3.810032641285493*^9, 
  3.810032646648159*^9}},ExpressionUUID->"c5073d83-d75f-44e4-b7ba-\
b828e5286cbc"],

Cell[BoxData[
 RowBox[{"Module", "[", "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", 
  RowBox[{
   RowBox[{"{", "x", "}"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "x", "]"}]}], "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031744667626*^9, 3.810031745384202*^9}, {
  3.810031792375782*^9, 3.810031803317*^9}, {3.810031912899024*^9, 
  3.8100319162955217`*^9}, {3.810032007881922*^9, 3.8100320081634274`*^9}, {
  3.810032072797595*^9, 3.810032073296319*^9}, {3.8100325088034067`*^9, 
  3.810032534264525*^9}, {3.810032641285493*^9, 3.810032646648159*^9}, {
  3.81003283324585*^9, 3.8100328414368753`*^9}, {3.810033186515356*^9, 
  3.810033198029529*^9}, {3.8100357660915003`*^9, 3.810035775256632*^9}, {
  3.810037936274078*^9, 3.81003796530052*^9}, {3.8100404375508537`*^9, 
  3.810040438685556*^9}},ExpressionUUID->"72ded9e3-a02f-4d84-996d-\
e63f120a5e04"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", "x", "}"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "x", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031753243767*^9, 3.8100317543031693`*^9}, {
  3.810031824289022*^9, 3.810031850200563*^9}, {3.810031928581819*^9, 
  3.81003192977617*^9}, {3.810032020251375*^9, 
  3.810032043715498*^9}},ExpressionUUID->"29542d54-ac6a-4fa6-8b26-\
07229aefb0b6"],

Cell[BoxData[
 RowBox[{"Function", "[", "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", 
  RowBox[{
   RowBox[{"{", "x", "}"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "x", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031753243767*^9, 3.8100317543031693`*^9}, {
  3.810031824289022*^9, 3.810031850200563*^9}, {3.810031928581819*^9, 
  3.81003192977617*^9}, {3.810032020251375*^9, 3.810032043715498*^9}, {
  3.810032622609496*^9, 
  3.81003263798151*^9}},ExpressionUUID->"e82fc2c1-c149-4f1f-9a85-\
c642ed1222ff"],

Cell[BoxData[
 RowBox[{"Switch", "[", 
  RowBox[{"x", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "a", "]"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "b", "]"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "c", "]"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "d", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031758471492*^9, 3.8100317593523617`*^9}, {
  3.8100318273639297`*^9, 3.8100318629378843`*^9}, {3.8100319336769743`*^9, 
  3.8100319412060347`*^9}, {3.810032024186977*^9, 
  3.810032082115622*^9}},ExpressionUUID->"e515cc6c-b558-4be6-a168-\
e7b235564db2"],

Cell[BoxData[
 RowBox[{"Switch", "[", 
  RowBox[{"x", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "a", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "b", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "c", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "d", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031758471492*^9, 3.8100317593523617`*^9}, {
  3.8100318273639297`*^9, 3.8100318629378843`*^9}, {3.8100319336769743`*^9, 
  3.8100319412060347`*^9}, {3.810032024186977*^9, 3.810032082115622*^9}, {
  3.8100326663707542`*^9, 
  3.810032679666997*^9}},ExpressionUUID->"15167b76-08b2-452b-9232-\
d802e3da12f7"],

Cell[BoxData[
 RowBox[{"Which", "[", "\n", 
  RowBox[{"(*", "\n", 
   RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
  RowBox[{
   RowBox[{"f", "[", "a", "]"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "b", "]"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "c", "]"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "d", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031764750404*^9, 3.810031765567535*^9}, {
  3.810031829479938*^9, 3.8100318300094757`*^9}, {3.8100318669730577`*^9, 
  3.8100318746292963`*^9}, {3.810031944179576*^9, 3.810031951664019*^9}, {
  3.8100320281377497`*^9, 
  3.8100320866529303`*^9}},ExpressionUUID->"fe476e1a-8b13-428c-8e69-\
1d064ca54e41"],

Cell[BoxData[
 RowBox[{"Which", "[", "\n", 
  RowBox[{"(*", "\n", 
   RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
  RowBox[{
   RowBox[{"f", "[", "a", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "b", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "c", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "d", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031764750404*^9, 3.810031765567535*^9}, {
  3.810031829479938*^9, 3.8100318300094757`*^9}, {3.8100318669730577`*^9, 
  3.8100318746292963`*^9}, {3.810031944179576*^9, 3.810031951664019*^9}, {
  3.8100320281377497`*^9, 3.8100320866529303`*^9}, {3.810032706036085*^9, 
  3.81003271658556*^9}},ExpressionUUID->"9d62d9bd-3a14-43f1-9e65-\
cdd97feae8ab"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"f", "[", "a", "]"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "b", "]"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "c", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031769131003*^9, 3.810031769298787*^9}, {
  3.810031832106346*^9, 3.810031832794549*^9}, {3.810031878188737*^9, 
  3.810031885907292*^9}, {3.8100319545991907`*^9, 3.8100319576729507`*^9}, {
  3.8100320319159307`*^9, 3.8100320332935143`*^9}, {3.8100320641974916`*^9, 
  3.810032066479887*^9}},ExpressionUUID->"e3fc4b8f-d21c-44e0-9807-\
113759eeea8b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"f", "[", "a", "]"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "b", "]"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "c", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031769131003*^9, 3.810031769298787*^9}, {
  3.810031832106346*^9, 3.810031832794549*^9}, {3.810031878188737*^9, 
  3.810031885907292*^9}, {3.8100319545991907`*^9, 3.8100319576729507`*^9}, {
  3.8100320319159307`*^9, 3.8100320332935143`*^9}, {3.8100320641974916`*^9, 
  3.810032066479887*^9}, {3.8100327238595324`*^9, 
  3.810032725907509*^9}},ExpressionUUID->"0034bd7d-fb80-4ebb-bd77-\
e3dec31b9af6"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "0"}], ",", " ", 
   RowBox[{"i", "++"}], ",", " ", 
   RowBox[{"i", " ", "<", " ", "10"}], ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "i", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031773423728*^9, 3.810031773722213*^9}, {
  3.8100318343090267`*^9, 3.8100318350278473`*^9}, {3.810031888658544*^9, 
  3.8100319015961742`*^9}, {3.8100319628346043`*^9, 3.810031969294958*^9}, {
  3.810032035079054*^9, 3.810032035233262*^9}, {3.810032068510524*^9, 
  3.810032068777007*^9}},ExpressionUUID->"08d1acbd-b1f4-4160-8de1-\
90c082d65e2d"],

Cell[BoxData[
 RowBox[{"For", "[", "\n", 
  RowBox[{"(*", "\n", "*)"}], "\n", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "0"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", 
   RowBox[{"i", "++"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", 
   RowBox[{"i", " ", "<", " ", "10"}], "\n", 
   RowBox[{"(*", "\n", "*)"}], "\n", ",", "\n", 
   RowBox[{"(*", "\n", 
    RowBox[{"a", " ", "comment"}], "\n", "*)"}], "\n", 
   RowBox[{"f", "[", "i", "]"}]}], "\n", "]"}]], "Code",
 CellChangeTimes->{{3.810031773423728*^9, 3.810031773722213*^9}, {
  3.8100318343090267`*^9, 3.8100318350278473`*^9}, {3.810031888658544*^9, 
  3.8100319015961742`*^9}, {3.8100319628346043`*^9, 3.810031969294958*^9}, {
  3.810032035079054*^9, 3.810032035233262*^9}, {3.810032068510524*^9, 
  3.810032068777007*^9}, {3.810032735299423*^9, 
  3.8100327571510973`*^9}},ExpressionUUID->"004a900f-e484-4665-af2b-\
f817e7b0c58c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1657, 950},
WindowMargins->{{35, Automatic}, {38, Automatic}},
WindowStatusArea->"",
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (September 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"00d7f4ba-d758-4368-af17-83a6d481cb3a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 169, 3, 98, "Title",ExpressionUUID->"1b8b1596-51a0-4240-9fb2-afc00b94623f"],
Cell[CellGroupData[{
Cell[774, 29, 79, 0, 67, "Section",ExpressionUUID->"9eee6a9b-3bca-4126-b742-5a5a6e0da127"],
Cell[856, 31, 271, 4, 30, "Input",ExpressionUUID->"547829bc-aef3-4b7c-a512-2248f8a718f7"],
Cell[CellGroupData[{
Cell[1152, 39, 310, 4, 136, "Input",ExpressionUUID->"e5ad5151-0e69-4d5c-bdf6-e122b87f43f7"],
Cell[1465, 45, 226, 3, 119, "Output",ExpressionUUID->"78f9f94e-4f0e-46d7-b0b4-ad7b492309df"],
Cell[1694, 50, 232, 3, 119, "Output",ExpressionUUID->"4e4be88e-4cdd-4b19-b04c-928d4a7357d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1963, 58, 315, 4, 136, "Input",ExpressionUUID->"fb6f1e20-c664-4959-93ef-99f6ff48ffaf"],
Cell[2281, 64, 229, 3, 119, "Output",ExpressionUUID->"7009e6dd-c3d5-45fc-9eee-0a5d86527b4a"],
Cell[2513, 69, 235, 3, 119, "Output",ExpressionUUID->"7de32203-28e3-4f51-bdbc-419d1c3fe245"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2785, 77, 317, 4, 136, "Input",ExpressionUUID->"84d6322f-8a81-4774-8e67-ab35d56d4e76"],
Cell[3105, 83, 201, 2, 119, "Output",ExpressionUUID->"95e54637-94fe-4b2a-94b4-1791bf5eb243"],
Cell[3309, 87, 221, 2, 140, "Output",ExpressionUUID->"ebdbaccd-9fab-4280-b1d2-33bd34972404"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3567, 94, 269, 3, 136, "Input",ExpressionUUID->"c8943ea6-588b-4e79-a230-39be56879620"],
Cell[3839, 99, 206, 2, 119, "Output",ExpressionUUID->"15072413-bb3e-4ee6-b23b-1106cc392fdb"],
Cell[4048, 103, 221, 2, 140, "Output",ExpressionUUID->"c7ddf02d-323c-412a-80b2-b374837a5836"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4306, 110, 366, 5, 136, "Input",ExpressionUUID->"1d8ba3ec-c74d-4466-86f8-fea15f685a57"],
Cell[4675, 117, 203, 2, 119, "Output",ExpressionUUID->"fcb558ad-1914-4bdc-9079-0c8904dfd954"],
Cell[4881, 121, 209, 2, 119, "Output",ExpressionUUID->"dbaeeb24-a26b-4b46-b75d-12c14bbdc327"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5127, 128, 543, 7, 136, "Input",ExpressionUUID->"18647010-92fb-4815-82a0-60d668b69937"],
Cell[5673, 137, 209, 2, 119, "Output",ExpressionUUID->"59681eb5-047d-4719-906b-fadcef57c8a3"],
Cell[5885, 141, 211, 2, 119, "Output",ExpressionUUID->"8c34a449-2b33-4fbd-bbcf-83397dd45096"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6133, 148, 435, 6, 115, "Input",ExpressionUUID->"8f275830-8643-4037-9496-bba84f1e6656"],
Cell[6571, 156, 198, 2, 98, "Output",ExpressionUUID->"348900c5-2a6b-4979-b604-176cfb62e7d6"],
Cell[6772, 160, 203, 2, 119, "Output",ExpressionUUID->"2801ec3d-849c-46c0-9a86-e1b66a0696f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7012, 167, 267, 3, 136, "Input",ExpressionUUID->"886d8df6-92b2-4c42-85ae-cc63509b6e49"],
Cell[7282, 172, 201, 2, 119, "Output",ExpressionUUID->"6e72b310-006a-48e6-b890-3d688b3aeb1c"],
Cell[7486, 176, 209, 2, 140, "Output",ExpressionUUID->"8ed23bd2-6fbe-4831-b103-e47f52ad60d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7732, 183, 564, 8, 178, "Input",ExpressionUUID->"b1dc9d8f-7ad4-4ce0-8bda-b7bafefc13a4"],
Cell[8299, 193, 228, 3, 161, "Output",ExpressionUUID->"08358d1f-64ed-41e7-b4d1-303072817510"],
Cell[8530, 198, 234, 3, 161, "Output",ExpressionUUID->"6e72e430-bb4b-4653-8e89-f79120bd863f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8801, 206, 412, 5, 136, "Input",ExpressionUUID->"9b77f3f3-d396-4feb-abb0-9dbbf7ef2e81"],
Cell[9216, 213, 204, 2, 119, "Output",ExpressionUUID->"0a669a55-5102-4dba-84d1-c109d16bed8f"],
Cell[9423, 217, 206, 2, 119, "Output",ExpressionUUID->"205d31bd-0343-4d0c-bf08-66826abd93d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9666, 224, 275, 3, 157, "Input",ExpressionUUID->"10504663-1c38-4f19-af52-7c2b68840395"],
Cell[9944, 229, 211, 2, 140, "Output",ExpressionUUID->"8129376c-c2bd-4281-8622-4a394188d85c"],
Cell[10158, 233, 217, 2, 140, "Output",ExpressionUUID->"a8929337-b1a7-4d0a-b884-55c8fa041755"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10412, 240, 274, 3, 157, "Input",ExpressionUUID->"49105805-a647-402d-ae82-29bb794db61c"],
Cell[10689, 245, 212, 2, 140, "Output",ExpressionUUID->"93d3afdc-a1e0-4685-8396-eae7a08b115e"],
Cell[10904, 249, 220, 2, 140, "Output",ExpressionUUID->"04e8003c-5895-4a02-8ec0-2705097a2b19"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11161, 256, 266, 3, 115, "Input",ExpressionUUID->"2187e473-9e71-4ead-b0e6-918fbb76509b"],
Cell[11430, 261, 205, 2, 98, "Output",ExpressionUUID->"d7f24d95-35f8-44b6-ad25-dd7d1415b0cc"],
Cell[11638, 265, 208, 2, 119, "Output",ExpressionUUID->"c73e6ccd-3710-4f24-8742-a0205a411037"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11883, 272, 272, 3, 136, "Input",ExpressionUUID->"60abed13-3fbb-4c11-aa44-eb78d79bad4c"],
Cell[12158, 277, 209, 2, 119, "Output",ExpressionUUID->"f66d5cdc-e111-4bca-9797-25ff4cdaa8fb"],
Cell[12370, 281, 220, 2, 140, "Output",ExpressionUUID->"388601aa-67ab-4cda-ac69-db8398dc7f34"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12627, 288, 267, 3, 115, "Input",ExpressionUUID->"3b25dbd4-e8cf-4fb2-96a0-df28ece6da4a"],
Cell[12897, 293, 203, 2, 98, "Output",ExpressionUUID->"1f9b9452-684d-4173-957b-683daa9787b0"],
Cell[13103, 297, 209, 2, 119, "Output",ExpressionUUID->"ffc66151-4982-4d39-8cf5-5a7b617f168f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13349, 304, 284, 4, 52, "Input",ExpressionUUID->"4b9e660e-778c-4aad-86fe-653c5d056793"],
Cell[13636, 310, 214, 2, 34, "Output",ExpressionUUID->"da4908ae-46c0-4429-89ee-260eb5a1f2f5"],
Cell[13853, 314, 217, 2, 34, "Output",ExpressionUUID->"5a718e5c-8e86-481f-90f1-03d260599bc6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14107, 321, 253, 3, 52, "Input",ExpressionUUID->"795fbeb2-b3bb-4591-bbce-603b251e16d5"],
Cell[14363, 326, 183, 2, 34, "Output",ExpressionUUID->"7d1f3048-20b2-405f-830b-5d6018add258"],
Cell[14549, 330, 184, 2, 34, "Output",ExpressionUUID->"f3295862-baad-41d2-9881-b11bbe59c471"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14770, 337, 293, 4, 52, "Input",ExpressionUUID->"0a80fedc-0fd8-4a63-8b24-2aa0a3f35faf"],
Cell[15066, 343, 226, 3, 34, "Output",ExpressionUUID->"8fd68d28-04bd-45aa-89ec-f9722a7bd691"],
Cell[15295, 348, 228, 3, 34, "Output",ExpressionUUID->"2634cd2d-7e36-4f9e-a0af-103b5b4a0561"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15560, 356, 252, 3, 52, "Input",ExpressionUUID->"29ed91b1-4555-4694-a564-dae0947306d4"],
Cell[15815, 361, 185, 2, 34, "Output",ExpressionUUID->"45ed2ba9-f164-4e70-9a66-918ea60eaff8"],
Cell[16003, 365, 184, 2, 34, "Output",ExpressionUUID->"8ca2c963-3d07-4608-b0b8-34ae783c4f87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16224, 372, 262, 3, 136, "Input",ExpressionUUID->"fc4222dc-3711-401d-bf13-4debc06a1f36"],
Cell[16489, 377, 198, 2, 119, "Output",ExpressionUUID->"55b3e8a8-0a14-46d9-b30e-e8518a5d434c"],
Cell[16690, 381, 204, 2, 119, "Output",ExpressionUUID->"466a2965-9f80-466c-aced-fa8de9546357"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16931, 388, 259, 3, 52, "Input",ExpressionUUID->"df055702-32e5-425d-8b26-0d5f553a63ed"],
Cell[17193, 393, 195, 2, 34, "Output",ExpressionUUID->"16e9dd07-2031-4d88-93d7-c1dc09880f9b"],
Cell[17391, 397, 205, 2, 77, "Output",ExpressionUUID->"05830cdb-c72a-4eed-95fc-393e047a3bfe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17633, 404, 266, 3, 52, "Input",ExpressionUUID->"d0cc446d-2c96-4d03-ba6c-983a46115e8c"],
Cell[17902, 409, 199, 2, 34, "Output",ExpressionUUID->"89dd652b-8a09-4e31-bcb9-acd7267f37eb"],
Cell[18104, 413, 207, 2, 77, "Output",ExpressionUUID->"8f9d838f-76e5-416f-8fa0-dfd8eb72687e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18348, 420, 341, 5, 52, "Input",ExpressionUUID->"297000cf-d033-44f3-b232-1994fc17b349"],
Cell[18692, 427, 274, 4, 34, "Output",ExpressionUUID->"60996613-1166-4341-b657-c8cf420730d0"],
Cell[18969, 433, 285, 3, 77, "Output",ExpressionUUID->"34682126-1199-464d-beef-64351cf3c84b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19291, 441, 155, 3, 54, "Subsection",ExpressionUUID->"ade2c8b7-0afe-47c2-b92d-64f8518816e8"],
Cell[CellGroupData[{
Cell[19471, 448, 276, 3, 73, "Input",ExpressionUUID->"2d33804c-01b5-47bc-b861-3030c76d94b7"],
Cell[19750, 453, 162, 2, 56, "Output",ExpressionUUID->"2a7c481b-9202-49c3-b23a-a19e6c9a4191"],
Cell[19915, 457, 170, 2, 77, "Output",ExpressionUUID->"f79de9a9-3a47-4e1d-b6b4-75d34e16dfae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20122, 464, 256, 3, 52, "Input",ExpressionUUID->"32cfdf8d-da65-452b-a002-c7b72ad9743c"],
Cell[20381, 469, 165, 2, 56, "Output",ExpressionUUID->"ead2a6e4-f305-47e4-a735-24669b704db1"],
Cell[20549, 473, 165, 2, 56, "Output",ExpressionUUID->"c00bc9f1-3a71-4241-809b-64f831519030"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20751, 480, 253, 3, 52, "Input",ExpressionUUID->"529e460f-871f-4646-b6e1-dd55a2acfad0"],
Cell[21007, 485, 166, 2, 56, "Output",ExpressionUUID->"e5dacda1-46c3-42af-b791-cea2ad43883d"],
Cell[21176, 489, 163, 2, 56, "Output",ExpressionUUID->"e975a029-e30d-4065-97ec-640295c3f7ed"]
}, Open  ]],
Cell[21354, 494, 241, 4, 52, "Input",ExpressionUUID->"c64163de-ba0f-4342-9ca6-9867e5dd2db5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21632, 503, 155, 3, 54, "Subsection",ExpressionUUID->"e09be37e-81b3-4fa1-812f-bcd89fab701a"],
Cell[21790, 508, 647, 13, 148, "Code",ExpressionUUID->"e267df39-f2ba-4220-870f-c01747c11c81"],
Cell[22440, 523, 730, 15, 262, "Code",ExpressionUUID->"c5073d83-d75f-44e4-b7ba-b828e5286cbc"],
Cell[23173, 540, 1160, 23, 452, "Code",ExpressionUUID->"72ded9e3-a02f-4d84-996d-e63f120a5e04"],
Cell[24336, 565, 499, 11, 148, "Code",ExpressionUUID->"29542d54-ac6a-4fa6-8b26-07229aefb0b6"],
Cell[24838, 578, 634, 14, 262, "Code",ExpressionUUID->"e82fc2c1-c149-4f1f-9a85-c642ed1222ff"],
Cell[25475, 594, 863, 19, 395, "Code",ExpressionUUID->"e515cc6c-b558-4be6-a168-e7b235564db2"],
Cell[26341, 615, 1040, 23, 547, "Code",ExpressionUUID->"15167b76-08b2-452b-9232-d802e3da12f7"],
Cell[27384, 640, 899, 20, 395, "Code",ExpressionUUID->"fe476e1a-8b13-428c-8e69-1d064ca54e41"],
Cell[28286, 662, 1070, 23, 547, "Code",ExpressionUUID->"9d62d9bd-3a14-43f1-9e65-cdd97feae8ab"],
Cell[29359, 687, 733, 15, 243, "Code",ExpressionUUID->"e3fc4b8f-d21c-44e0-9807-113759eeea8b"],
Cell[30095, 704, 822, 17, 281, "Code",ExpressionUUID->"0034bd7d-fb80-4ebb-bd77-e3dec31b9af6"],
Cell[30920, 723, 691, 14, 148, "Code",ExpressionUUID->"08d1acbd-b1f4-4160-8de1-90c082d65e2d"],
Cell[31614, 739, 995, 21, 490, "Code",ExpressionUUID->"004a900f-e484-4665-af2b-f817e7b0c58c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

